R-occurs(R;i;z)
== case R of
== Rnone => false
== Rplus(left,right)=>rec1,rec2.rec1rec2 == Rinit(loc,T,x,v)=> loc = iz = x == Rframe(loc,T,x,L)=> loc = iz = x == Rsframe(lnk,tag,L)=> false
== Reffect(loc,ds,knd,T,x,f)=> loc = i (z = xz dom(ds))
== Rsends(ds,knd,T,l,dt,g)=> source(l) = iz dom(ds)
== Rpre(loc,ds,a,T,P)=> loc = iz dom(ds)
== Raframe(loc,k,L)=> loc = i deq-member(IdDeq;z;L)
== Rbframe(loc,k,L)=> false
== Rrframe(loc,x,L)=> loc = iz = x
R-occurs(R;i;z)
== case R of
== Rnone => false
== Rplus(left,right)=>rec1,rec2.rec1rec2 == Rinit(loc,T,x,v)=> loc = iz = x == Rframe(loc,T,x,L)=> loc = iz = x == Rsframe(lnk,tag,L)=> false
== Reffect(loc,ds,knd,T,x,f)=> loc = i (z = x fpf-dom(IdDeq; z; ds))
== Rsends(ds,knd,T,l,dt,g)=> source(l) = i fpf-dom(IdDeq; z; ds)
== Rpre(loc,ds,a,T,P)=> loc = i fpf-dom(IdDeq; z; ds)
== Raframe(loc,k,L)=> loc = i deq-member(IdDeq;z;L)
== Rbframe(loc,k,L)=> false
== Rrframe(loc,x,L)=> loc = iz = x